home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / program / ddj0897.zip / DYN401.ZIP / kernel / object.c < prev    next >
C/C++ Source or Header  |  1997-04-16  |  5KB  |  242 lines
  1.  
  2.  
  3. /*  Copyright (c) 1993-1996 Algorithms Corporation  */
  4. /*  All rights reserved.  */
  5.  
  6.  
  7.  
  8.  
  9. /*  This file automatically generated by dpp - do not edit  */
  10.  
  11. #define    DPP_STRATEGY    2
  12. #define    DPP_FASTWIDE    0
  13.  
  14.  
  15.  
  16. #line 13 "object.d"
  17. #include <math.h> 
  18.  
  19. #define    CLASS    Object_c
  20. #define    ivType    Object_iv_t
  21.  
  22. #include "generics.h"
  23.  
  24. object    Object_c;
  25.  
  26. #include "object.iv"
  27.  
  28.  
  29.  
  30. #line 21 "object.d"
  31. imeth objrtn Object_im_gError(object self, char *msg)
  32. { 
  33.     if (File_c) 
  34.         gPuts(stderrStream, msg); 
  35.     else { 
  36.         if (IsObj((object) msg)) 
  37.             msg = gStringValue((object) msg); 
  38.         fprintf(stderr, "%s", msg); 
  39.     } 
  40.     exit(1); 
  41.     return self; 
  42. } 
  43.  
  44. ivmeth objrtn Object_ivm_vError(object self, va_list _rest_)
  45. { char * fmt = va_arg(_rest_, char *);
  46.     char buf[512]; 
  47.     MAKE_REST(fmt); 
  48.  
  49.     vsprintf(buf, fmt, _rest_); 
  50.     return gError(self, buf); 
  51. } 
  52.  
  53. #line 54 "object.c"
  54.  
  55. static    objrtn    Object_ifm_vError(object self, ...)
  56. {
  57.     va_list    _rest_;
  58.     va_start(_rest_, self);
  59.     return Object_ivm_vError(self, _rest_);
  60. }
  61.  
  62.  
  63.  
  64. #line 43 "object.d"
  65. imeth objrtn Object_im_gSubclassResponsibility(object self, char *meth)
  66. { 
  67.     char buf[100]; 
  68.     object aCls; 
  69.  
  70.     aCls = IsaClass(self) ? self : ClassOf(self); 
  71.     sprintf(buf, "Method %s should be implemented by a subclass of %s\n", 
  72.         meth, gName(aCls)); 
  73.     return gError(self, buf); 
  74. } 
  75.  
  76. imeth objrtn Object_im_gShouldNotImplement(object self, char *meth)
  77. { 
  78.     char buf[100]; 
  79.  
  80.     if (IsaClass(self)) 
  81.         sprintf(buf, "Method %s is not appropriate for the %s class\n", 
  82.         meth, gName(self)); 
  83.     else 
  84.         sprintf(buf, "Method %s is not appropriate for instances of %s\n", 
  85.         meth, gName(ClassOf(self))); 
  86.     return gError(self, buf); 
  87. } 
  88.  
  89. #ifndef NOCLASSLIB 
  90.  
  91. imeth objrtn Object_im_gStringRep(object self)
  92. { 
  93.     object s, t; 
  94.  
  95.     s = vSprintf(String, "%s:<%8.8lx> [ ", gName(ClassOf(self)), self); 
  96.     t = gStringRepValue(self); 
  97.     vBuild(s, NULL, t, " ]\n", NULL); 
  98.     gDispose(t); 
  99.     return s; 
  100. } 
  101.  
  102. imeth objrtn Object_im_gStringRepValue(object self)
  103. { 
  104.     return vSprintf(String, "%s:<%8.8lx>", gName(ClassOf(self)), self); 
  105. } 
  106.  
  107. imeth objrtn Object_im_gPrint(object self, object stream)
  108. { 
  109.     object t; 
  110.  
  111.     ChkArg(stream, 2); 
  112.     t = gStringRep(self); 
  113.     gPuts(stream, (char *) t); 
  114.     gDispose(t); 
  115.     return self; 
  116. } 
  117.  
  118. imeth objrtn Object_im_gPrintValue(object self, object stream)
  119. { 
  120.     object t; 
  121.  
  122.     ChkArg(stream, 2); 
  123.     t = gStringRepValue(self); 
  124.     gPuts(stream, (char *) t); 
  125.     gDispose(t); 
  126.     return self; 
  127. } 
  128.  
  129. #endif 
  130.  
  131. imeth int Object_im_gHash(object self)
  132. { 
  133.     double t; 
  134.  
  135.     t = .6125423371 * (double)(unsigned long) self; 
  136.     t = t < 0.0 ? -t : t; 
  137.     return (int) (BIG_INT * (t - floor(t))); 
  138. } 
  139.  
  140. imeth int Object_im_gCompare(object self, object obj2)
  141. { 
  142.     if (EQ(self, obj2)) 
  143.         return 0; 
  144.     ChkArg(obj2, 2); 
  145.     if ((unsigned long) self < (unsigned long) obj2) 
  146.         return -1; 
  147.     else 
  148.         return 1; 
  149. } 
  150.  
  151. imeth int Object_im_gIsKindOf(object self, object aCls)
  152. { 
  153.     static gIsKindOf_t class_IsKindOf = NULL; 
  154.  
  155.  
  156.  
  157.     if (!class_IsKindOf) 
  158.         class_IsKindOf = imcPointer(Behavior, gIsKindOf); 
  159.     return class_IsKindOf(ClassOf(self), aCls); 
  160. } 
  161.  
  162. imeth objrtn Object_im_gInit(object self)
  163. { 
  164.     return self; 
  165. } 
  166.  
  167. objrtn Object_initialize(void) 
  168. { 
  169.     static int done = 0; 
  170.  
  171.  
  172.  
  173.  
  174.     if (done) 
  175.         return Object_c; 
  176.  
  177.     done = 1; 
  178.  
  179.  
  180.  
  181.     iMethodFor(Object, gError, Object_im_gError); 
  182. #if DPP_STRATEGY == 1 
  183.     ivMethodFor(Object, vError, Object_ivm_vError, Object_ivm_vError); 
  184. #else 
  185.     ivMethodFor(Object, vError, Object_ivm_vError, Object_ifm_vError); 
  186. #endif 
  187.     iMethodFor(Object, gSubclassResponsibility, Object_im_gSubclassResponsibility); 
  188.     iMethodFor(Object, gShouldNotImplement, Object_im_gShouldNotImplement); 
  189.     iMethodFor(Object, gHash, Object_im_gHash); 
  190.     iMethodFor(Object, gCompare, Object_im_gCompare); 
  191.     iMethodFor(Object, gIsKindOf, Object_im_gIsKindOf); 
  192.     iMethodFor(Object, gInit, Object_im_gInit); 
  193.  
  194. #ifndef NOCLASSLIB 
  195.     iMethodFor(Object, gStringRep, Object_im_gStringRep); 
  196.     iMethodFor(Object, gStringRepValue, Object_im_gStringRepValue); 
  197.     iMethodFor(Object, gPrint, Object_im_gPrint); 
  198.     iMethodFor(Object, gPrintValue, Object_im_gPrintValue); 
  199. #endif 
  200.     return Object_c; 
  201. } 
  202.  
  203. #if 0 
  204.  
  205. imeth objrtn Object_im_gDispose(object self)
  206.  
  207. #line 183 "object.d"
  208. {} 
  209.  
  210.  
  211. #line 184 "object.d"
  212. imeth int Object_im_gEqual(object self, object obj2)
  213.  
  214. #line 184 "object.d"
  215. {} 
  216.  
  217.  
  218. #line 185 "object.d"
  219. imeth objrtn Object_im_gCopy(object self)
  220.  
  221. #line 185 "object.d"
  222. {} 
  223.  
  224.  
  225. #line 186 "object.d"
  226. imeth int Object_im_gSize(object self)
  227.  
  228. #line 186 "object.d"
  229. {} 
  230.  
  231.  
  232. #line 187 "object.d"
  233. imeth int Object_im_gBasicSize(object self)
  234.  
  235. #line 187 "object.d"
  236. {} 
  237.  
  238.  
  239.  
  240.  
  241. #endif 
  242.